package com.iaiai.calendar.util;

import java.text.ParseException;
import java.text.SimpleDateFormat;
import java.util.Calendar;
import java.util.Date;

/**
 * 农历
 * <p>
 * Title: LunarCalendar.java
 * </p>
 * <p>
 * E-Mail: 176291935@qq.com
 * </p>
 * <p>
 * QQ: 176291935
 * </p>
 * <p>
 * Http: iaiai.iteye.com
 * </p>
 * <p>
 * Create time: 2012-1-16
 * </p>
 * 
 * @author 丸子
 * @version 0.0.1
 */
public class LunarCalendar {

	private static final String[][] GanZhi = {
			{ "甲", "乙", "丙", "丁", "戊", "己", "庚", "辛", "壬", "癸" },
			{ "子", "丑", "寅", "卯", "辰", "巳", "午", "未", "申", "酉", "戌", "亥" } };
	private static final String[] Zhi_MONTH = { "寅", "卯", "辰", "巳", "午", "未",
			"申", "酉", "戌", "亥", "子", "丑" };
	private static final String[][] Gan_MONTH = { { "戊", "庚", "壬", "甲", "丙" },
			{ "己", "辛", "癸", "乙", "丁" }, { "庚", "壬", "甲", "丙", "戊" },
			{ "辛", "癸", "乙", "丁", "己" }, { "壬", "甲", "丙", "戊", "庚" },
			{ "癸", "乙", "丁", "己", "辛" }, { "甲", "丙", "戊", "庚", "壬" },
			{ "乙", "丁", "己", "辛", "癸" }, { "丙", "戊", "庚", "壬", "甲" },
			{ "丁", "己", "辛", "癸", "乙" }, { "戊", "庚", "壬", "甲", "丙" },
			{ "己", "辛", "癸", "乙", "丁" } };

	private final static int startYear = 1804;// 定义起始年，1804年为甲子年
	private final static int startMonth = 2012; // 定义计算月干支的起始年

	private int year;
	private int month;
	private int day;
	private boolean leap;
	final static String chineseNumber[] = { "一", "二", "三", "四", "五", "六", "七",
			"八", "九", "十", "十一", "十二" };
	static SimpleDateFormat chineseDateFormat = new SimpleDateFormat(
			"yyyy年MM月dd日");
	final static long[] lunarInfo = new long[] { 0x04bd8, 0x04ae0, 0x0a570,
			0x054d5, 0x0d260, 0x0d950, 0x16554, 0x056a0, 0x09ad0, 0x055d2,
			0x04ae0, 0x0a5b6, 0x0a4d0, 0x0d250, 0x1d255, 0x0b540, 0x0d6a0,
			0x0ada2, 0x095b0, 0x14977, 0x04970, 0x0a4b0, 0x0b4b5, 0x06a50,
			0x06d40, 0x1ab54, 0x02b60, 0x09570, 0x052f2, 0x04970, 0x06566,
			0x0d4a0, 0x0ea50, 0x06e95, 0x05ad0, 0x02b60, 0x186e3, 0x092e0,
			0x1c8d7, 0x0c950, 0x0d4a0, 0x1d8a6, 0x0b550, 0x056a0, 0x1a5b4,
			0x025d0, 0x092d0, 0x0d2b2, 0x0a950, 0x0b557, 0x06ca0, 0x0b550,
			0x15355, 0x04da0, 0x0a5d0, 0x14573, 0x052d0, 0x0a9a8, 0x0e950,
			0x06aa0, 0x0aea6, 0x0ab50, 0x04b60, 0x0aae4, 0x0a570, 0x05260,
			0x0f263, 0x0d950, 0x05b57, 0x056a0, 0x096d0, 0x04dd5, 0x04ad0,
			0x0a4d0, 0x0d4d4, 0x0d250, 0x0d558, 0x0b540, 0x0b5a0, 0x195a6,
			0x095b0, 0x049b0, 0x0a974, 0x0a4b0, 0x0b27a, 0x06a50, 0x06d40,
			0x0af46, 0x0ab60, 0x09570, 0x04af5, 0x04970, 0x064b0, 0x074a3,
			0x0ea50, 0x06b58, 0x055c0, 0x0ab60, 0x096d5, 0x092e0, 0x0c960,
			0x0d954, 0x0d4a0, 0x0da50, 0x07552, 0x056a0, 0x0abb7, 0x025d0,
			0x092d0, 0x0cab5, 0x0a950, 0x0b4a0, 0x0baa4, 0x0ad50, 0x055d9,
			0x04ba0, 0x0a5b0, 0x15176, 0x052b0, 0x0a930, 0x07954, 0x06aa0,
			0x0ad50, 0x05b52, 0x04b60, 0x0a6e6, 0x0a4e0, 0x0d260, 0x0ea65,
			0x0d530, 0x05aa0, 0x076a3, 0x096d0, 0x04bd7, 0x04ad0, 0x0a4d0,
			0x1d0b6, 0x0d250, 0x0d520, 0x0dd45, 0x0b5a0, 0x056d0, 0x055b2,
			0x049b0, 0x0a577, 0x0a4b0, 0x0aa50, 0x1b255, 0x06d20, 0x0ada0 };

	/**
	 * 传回农历 y年的总天数
	 * 
	 * @param y
	 * @return
	 */
	final private static int yearDays(int y) {
		int i, sum = 348;
		for (i = 0x8000; i > 0x8; i >>= 1) {
			if ((lunarInfo[y - 1900] & i) != 0)
				sum += 1;
		}
		return (sum + leapDays(y));
	}

	/**
	 * 传回农历 y年闰月的天数
	 * 
	 * @param y
	 * @return
	 */
	final private static int leapDays(int y) {
		if (leapMonth(y) != 0) {
			if ((lunarInfo[y - 1900] & 0x10000) != 0)
				return 30;
			else
				return 29;
		} else
			return 0;
	}

	/**
	 * 传回农历 y年闰哪个月 1-12 , 没闰传回 0
	 * 
	 * @param y
	 * @return
	 */
	final private static int leapMonth(int y) {
		return (int) (lunarInfo[y - 1900] & 0xf);
	}

	/**
	 * 传回农历 y年m月的总天数
	 * 
	 * @param y
	 * @param m
	 * @return
	 */
	final private static int monthDays(int y, int m) {
		if ((lunarInfo[y - 1900] & (0x10000 >> m)) == 0)
			return 29;
		else
			return 30;
	}

	/**
	 * 计算天干地支(年)
	 * 
	 * @param year
	 * @return
	 */
	public static String cyclicalm(int year) {
		return GanZhi[0][(year - startYear) % GanZhi[0].length] + ""
				+ GanZhi[1][(year - startYear) % GanZhi[1].length] + "年";
	}

	/**
	 * 传入 offset 传回干支, 0=甲子<br/>
	 * 这个计算错误(每年应该是从立春开始计算，不是从初一开始计算)
	 * 
	 * @return
	 */
	final public String cyclical() {
		return (cyclicalm(DateUtil.getYear()));
	}

	private void init(Date date) {
		int yearCyl, monCyl, dayCyl;
		int leapMonth = 0;
		Date baseDate = null;
		try {
			baseDate = chineseDateFormat.parse("1900年1月31日");
		} catch (ParseException e) {
			e.printStackTrace(); // To change body of catch statement use
									// Options | File Templates.
		}

		// 求出和1900年1月31日相差的天数
		int offset = (int) ((date.getTime() - baseDate.getTime()) / 86400000L);
		dayCyl = offset + 40;
		monCyl = 14;

		// 用offset减去每农历年的天数
		// 计算当天是农历第几天
		// i最终结果是农历的年份
		// offset是当年的第几天
		int iYear, daysOfYear = 0;
		for (iYear = 1900; iYear < 2050 && offset > 0; iYear++) {
			daysOfYear = yearDays(iYear);
			offset -= daysOfYear;
			monCyl += 12;
		}
		if (offset < 0) {
			offset += daysOfYear;
			iYear--;
			monCyl -= 12;
		}
		// 农历年份
		year = iYear;

		yearCyl = iYear - 1864;
		leapMonth = leapMonth(iYear); // 闰哪个月,1-12
		leap = false;

		// 用当年的天数offset,逐个减去每月（农历）的天数，求出当天是本月的第几天
		int iMonth, daysOfMonth = 0;
		for (iMonth = 1; iMonth < 13 && offset > 0; iMonth++) {
			// 闰月
			if (leapMonth > 0 && iMonth == (leapMonth + 1) && !leap) {
				--iMonth;
				leap = true;
				daysOfMonth = leapDays(year);
			} else
				daysOfMonth = monthDays(year, iMonth);

			offset -= daysOfMonth;
			// 解除闰月
			if (leap && iMonth == (leapMonth + 1))
				leap = false;
			if (!leap)
				monCyl++;
		}
		// offset为0时，并且刚才计算的月份是闰月，要校正
		if (offset == 0 && leapMonth > 0 && iMonth == leapMonth + 1) {
			if (leap) {
				leap = false;
			} else {
				leap = true;
				--iMonth;
				--monCyl;
			}
		}
		// offset小于0时，也要校正
		if (offset < 0) {
			offset += daysOfMonth;
			--iMonth;
			--monCyl;
		}
		month = iMonth;
		day = offset + 1;
	}

	/**
	 * 传出y年m月d日对应的农历. yearCyl3:农历年与1864的相差数 ? monCyl4:从1900年1月31日以来,闰月数
	 * dayCyl5:与1900年1月31日相差的天数,再加40 ?
	 * 
	 * @param cal
	 * @return
	 */
	public LunarCalendar(Calendar cal) {
		init(cal.getTime());
	}

	/**
	 * 传出y年m月d日对应的农历. yearCyl3:农历年与1864的相差数 ? monCyl4:从1900年1月31日以来,闰月数
	 * dayCyl5:与1900年1月31日相差的天数,再加40 ?
	 * 
	 * @param date
	 * @return
	 */
	public LunarCalendar(Date date) {
		init(date);
	}

	public static String getChinaDayString(int day) {
		String chineseTen[] = { "初", "十", "廿", "卅" };
		int n = day % 10 == 0 ? 9 : day % 10 - 1;
		if (day > 30)
			return "";
		if (day == 10)
			return "初十";
		else
			return chineseTen[day / 10] + chineseNumber[n];
	}

	/**
	 * 获得农历年，用于计算属性
	 * 
	 * @return
	 */
	public int getYear() {
		return year;
	}

	/**
	 * 获得农历月，从1开始
	 * 
	 * @return
	 */
	public int getMonth() {
		return month;
	}

	/**
	 * 获得农历日
	 * 
	 * @return
	 */
	public int getDay() {
		return day;
	}

	/**
	 * 获得农历日期，格式为:yyyy-MM-dd
	 * 
	 * @return
	 */
	public String getDate() {
		return year + "-" + month + "-" + day;
	}

	/**
	 * 返回农历的日
	 * 
	 * @return
	 */
	public String getLunarDay() {
		if (month == 1 && day == 1) {
			return "正月";
		}
		if (day == 1) {
			return (leap ? "闰" : "") + chineseNumber[month - 1] + "月";
		} else {
			return getChinaDayString(day);
		}
	}

	public String getDateInfo() {
		return String.valueOf(year).replace("0", "零").replace("1", "一")
				.replace("2", "二").replace("3", "三").replace("4", "四")
				.replace("5", "五").replace("6", "六").replace("7", "七")
				.replace("8", "八").replace("9", "九")
				+ "年"
				+ (leap ? "闰" : "")
				+ chineseNumber[month - 1]
				+ "月"
				+ getChinaDayString(day);
	}

	public String toString() {
		// return year + "年" + (leap ? "闰" : "") + chineseNumber[month - 1] +
		// "月"
		// + getChinaDayString(day);
		return (leap ? "闰" : "") + chineseNumber[month - 1] + "月"
				+ getChinaDayString(day);
	}

}
